home *** CD-ROM | disk | FTP | other *** search
Text File | 1989-04-13 | 2.7 KB | 89 lines | [TEXT/MPS ] |
- % ---------------------------------------------------------------------------
- % Class TOOLBOXEvent
- %
- % the routines listed in Inside Macintosh chapter: Toolbox Event
- % The code has been converted from the file ToolInft.p
- % In this module you find the interfaces to procedures concerned with Events
- % in the subclass MACEventManager you will find the programmers interface built on
- % top of this interface.
- %
- % 890317/Boris Magnusson
- % 890401/Göran Eriksson
- %
- % ---------------------------------------------------------------------------
- Class TOOLBOXEvent;
- begin
-
- % -- systemclick & Task moved from toolboxDesk
- % -- used only from processMGR --
- % PROCEDURE SystemClick(theEvent: EventRecord; theWindow: WindowPtr);
- external Toolbox procedure x="$A9B3" is
- PROCEDURE ToolboxSystemClick(theEvent, theWindow);
- name theEvent;
- short integer theEvent;
- integer theWindow;;
-
- % PROCEDURE SystemTask;
- external Toolbox procedure x="$A9B4" is
- PROCEDURE ToolboxSystemTask;;
- % -----------------------------------------
-
- % {for Event Manager}
-
- % FUNCTION EventAvail(mask: INTEGER; VAR theEvent: EventRecord): BOOLEAN;
- external toolbox procedure x="$A971" is
- boolean procedure ToolboxEventAvail(mask,theEvent);
- name theEvent;
- short integer mask, theEvent;;
-
- % FUNCTION GetNextEvent(mask: INTEGER; VAR theEvent: EventRecord): BOOLEAN;
- external toolbox procedure x="$A970" is
- boolean procedure ToolboxGetNextEvent(mask,theEvent);
- name theEvent;
- short integer mask, theEvent;;
-
- % FUNCTION WaitNextEvent(mask: INTEGER; VAR event: EventRecord;
- % sleep: LONGINT; mouseRgn: RgnHandle): BOOLEAN;
- external toolbox procedure x="$A860" is
- boolean procedure ToolboxWaitNextEvent(mask,event,sleep, mouseRgn);
- name event;
- short integer mask, event;
- integer sleep; integer mouseRgn;;
-
- % FUNCTION StillDown: BOOLEAN;
- external toolbox procedure x="$A973" is
- boolean procedure ToolboxStillDown;;
-
-
- % FUNCTION WaitMouseUp: BOOLEAN;
- external toolbox procedure x="$A977" is
- boolean procedure ToolboxWaitMouseUp;;
-
- % PROCEDURE GetMouse(VAR pt: Point);
- external toolbox procedure x="$A972" is
- PROCEDURE ToolboxGetMouse(pt);
- name pt; short integer pt;;
-
- % FUNCTION TickCount: LONGINT;
- external toolbox procedure x="$A975" is
- integer procedure ToolboxTickCount;;
-
-
- % FUNCTION Button: BOOLEAN;
- external toolbox procedure x="$A974" is
- boolean procedure ToolboxButton;;
-
- % PROCEDURE GetKeys(k);
- external toolbox procedure x="$A976" is
- PROCEDURE ToolboxGetKeys(k);
- name k; boolean array k;;
-
- % FUNCTION GetDblTime: LONGINT;
- % external Toolbox procedure x="$2EB80" is
- % external Toolbox procedure x="$$02F0" is
-
- % FUNCTION GetCaretTime: LONGINT;
- % external toolbox procedure x="$2EB8" is
- % external toolbox procedure x="$02F4" is
-
- end;